home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Nordlicht Spiele / Nordlicht Spiele 05-04 (19xx)(Nordlicht)(DE)(PD).zip / Nordlicht Spiele 05-04 (19xx)(Nordlicht)(DE)(PD).adf / PACMAN / sounds (.txt) < prev   
AmigaBASIC Source Code  |  1990-01-06  |  2KB  |  143 lines
  1. SOUNDS:
  2.   PALETTE 0,0,0,0
  3.   PALETTE 1,1,1,1
  4.   PALETTE 2,0.5,0.3,0.2
  5.   COLOR 3,0
  6.   CLS
  7.   PRINT"SOUNDS   1988 by Leuolyasoft"
  8.   LOCATE 4,1:PRINT"1 Phone-Call"
  9.   LOCATE 6,1:PRINT"2 Car"
  10.   LOCATE 8,1:PRINT"3 Random"
  11.   LOCATE 10,1:PRINT"4 Electric Current"
  12.   LOCATE 12,1:PRINT"5 Pulse"
  13.   LOCATE 14,1:PRINT"6 Up"
  14.   LOCATE 16,1:PRINT"7 Down"
  15.   LOCATE 18,1:PRINT"8 Space"
  16.   LOCATE 20,1:PRINT"9 Down II"
  17. E:  
  18.   WHILE a$="":a$=INKEY$:WEND
  19.   a=ASC(a$)-48
  20.   a$=""
  21.   IF a<1 OR a>9 THEN E
  22.   ON a GOSUB s3,s9,s12,s5,s10,s1,s2,s13,s14
  23.   GOTO E
  24.  
  25. '***Up***
  26. s1:
  27.   FOR t=1 TO 10
  28.     SOUND t*100,1
  29.   NEXT 
  30. RETURN  
  31. '***Down***
  32. s2:
  33.   FOR t=10 TO 1 STEP-0.5
  34.     SOUND 50*t,0.5   
  35.   NEXT
  36. RETURN  
  37.  
  38. '***Phone-Call***
  39. s3:
  40.   SAY a$
  41.   FOR t=1 TO 5
  42.     SOUND 500,20
  43.      FOR t1=1 TO 5000:NEXT
  44.   NEXT
  45. 'Bell
  46.  WHILE x<6
  47.     FOR t=1 TO 12
  48.      SOUND 2000,1:SOUND 1000,0.5
  49.     NEXT
  50.     FOR t=1 TO 5000:NEXT:x=x+1
  51.   WEND  
  52.     x=0
  53. 'Voice
  54.     a$="/HEHLOW"
  55.     SAY a$
  56. RETURN
  57.  
  58. '***Electric Current***
  59. s5:
  60.   FOR t=1 TO 1000
  61.    SOUND 100,0.1
  62.   NEXT t   
  63. RETURN
  64.  
  65. '***Aen Rieseschock***
  66. s6:
  67.   FOR t1=1 TO 5
  68.   FOR t=1 TO 80
  69.     SOUND t*10+500,0.1
  70.   NEXT t
  71.   NEXT t1     
  72.  FOR t1=1 TO 10
  73.   FOR t=6000 TO 100 STEP-100
  74.     SOUND t,0.1
  75.   NEXT
  76.  FOR t2=1 TO 100:NEXT
  77.  
  78.  NEXT
  79.  
  80.  
  81. '***Car***
  82. s9:
  83.   x=255:x1=350
  84. FOR t1=1 TO 4  
  85.   FOR t=x TO x1
  86.     SOUND t,1
  87.   NEXT
  88.   FOR t=350 TO 200 STEP -1
  89.     SOUND t,0.15
  90.   NEXT 
  91.   x=x+10:x1=x1+10
  92. NEXT t1
  93. x=0:x1=0
  94. RETURN
  95.  
  96. s10:
  97.  FOR t1=1 TO 10  
  98.    FOR t=100 TO 200 
  99.      SOUND t,0.1
  100.    NEXT
  101.   NEXT
  102. RETURN  
  103.  
  104. '***Random***
  105. s12:
  106.   FOR t=1 TO 100
  107.     SOUND INT(1000*RND),1
  108.   NEXT
  109. RETURN
  110.  
  111. '***Space***
  112. s13:
  113. RESTORE
  114. FOR t1=1 TO 8  
  115.   READ x1,x2,x
  116.   FOR t2=1 TO 10
  117.     FOR t=x1 TO x2 STEP x
  118.       SOUND t,0.2
  119.     NEXT t
  120.   NEXT t2  
  121. NEXT t1
  122. RETURN
  123. DATA  1000,200,-100,500,100,-50,2000,0,-200,1000,2000,100
  124. DATA  1500,3000,200,1000,300,-50   
  125. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0            
  126.  
  127. '***Down II***
  128. s14:
  129.   x=1
  130.   FOR t=1 TO 12
  131.     FOR t1=1 TO 3
  132.       SOUND 250-x,0.4
  133.       SOUND 350-x,0.4
  134.       SOUND 500-x,0.4
  135.       SOUND 650-x,0.4
  136.    NEXT t1
  137.   x=20*t
  138.   NEXT t
  139. RETURN      
  140.     
  141. ' 1988 by Leuolyasoft
  142.     
  143.